home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / mus / misc / spcli.lha / SongPlayerCLI / Rexx / SpCLI / Find.rexx < prev    next >
OS/2 REXX Batch file  |  2000-08-23  |  1KB  |  60 lines
  1. /* 
  2. SongPlayerCLI v1.52 (by Gareth Griffiths)
  3. E-Mail: gazchap@btinternet.com
  4. Find.rexx - Finds a file based on the 'TITLE' ID3 Tag.
  5. */
  6.  
  7. IF ~SHOW('P','SONGPLAYER.1') THEN DO
  8.     ADDRESS COMMAND
  9.     SAY "Can't find ARexx port 'SONGPLAYER.1'"
  10.     EXIT
  11. END
  12.  
  13. OPTIONS RESULTS
  14. PARSE ARG srch
  15. ADDRESS 'SONGPLAYER.1'
  16. 'GET_SELECTED'
  17. old=result
  18. ADDRESS COMMAND
  19. IF srch = "" THEN DO
  20.     OPTIONS PROMPT 'Enter search string: '
  21.     PULL srch
  22. END
  23. SAY 'Searching...'
  24. ADDRESS SONGPLAYER.1
  25. g=0
  26. found=0
  27. 'STOP'
  28. 'GET_COUNT'
  29. last=result
  30. DO f=1 to last
  31.     ADDRESS SONGPLAYER.1
  32.     'SELECT 'f
  33.     'GET_TITLE'
  34.     title=result
  35.     'GET_ARTIST'
  36.     artist=result
  37.    var=pos(UPPER(srch),UPPER(title),1)
  38.    IF var>0 THEN DO
  39.       g = g + 1
  40.      found = found + 1
  41.      ADDRESS COMMAND
  42.      IF f<10 then do
  43.               SAY ' ·  ('f') 'artist': 'title
  44.      END
  45.       if f>9 then do
  46.            SAY ' · ('f') 'artist': 'title
  47.      END
  48.    END
  49.     if g=25 then do
  50.         g=0
  51.         address command
  52.         options prompt '(More - Press RETURN)'
  53.         pull more
  54.     end
  55. END
  56. SAY ''found' matche(s) found.'
  57. ADDRESS SONGPLAYER.1
  58. 'SELECT 'old
  59. 'PLAY'
  60. EXIT